Application.HideBar("Design Toolbar")
Application.ShowBar("Drafting Toolbar")
Application.ExecuteCommand("Add 2D Line Polyline")
Application.ExecuteCommand("Drafting Rectangle Mode")